'************************************************************************************
' Copyright © 2003-2005 Kathleen Dollard
'
' This software is provided 'as-is', without any express or implied warranty. In no 
' event will the author be held liable for any damages arising from the use of this
' software.
' 
' You may use this software for any purpose, including commercial applications, 
' and you may redistribute this software as part of application delivery: however, 
' this copyright notice may not be removed and you may not otherwise redistribute 
' this software directly other than providing a link to wwww.gendotnet.com. 
'
' You may alter this software to better server your needs (I'd like to hear about your 
' changes in order to make the software better). If you alter the softwre, you must  
' clearly mark it as altered and must not be misrepresented as the original software.
' nor wholly your original work.
'*************************************************************************************
Option Strict On
Option Explicit On 

Imports System

Namespace KADGen.Utility

   <AttributeUsage(AttributeTargets.Assembly)> _
   Public Class AssemblyContactAttribute
      Inherits System.Attribute


#Region "Class level declarations"
      Private mContactName As String
      Private mContactTag As String
      Private mContactEMail As String
#End Region

#Region "Constructors"
      Public Sub New( _
               ByVal contactName As String, _
               ByVal contactTag As String, _
               ByVal contactEMail As String)
         Me.mContactName = contactName
         Me.mContactTag = contactTag
         Me.mContactEMail = contactEMail
      End Sub
#End Region

#Region "Public properties and methods"
      Public ReadOnly Property ContactName() As String
         Get
            Return Me.mContactName
         End Get
      End Property

      Public ReadOnly Property ContactTag() As String
         Get
            Return Me.mContactTag
         End Get
      End Property

      Public ReadOnly Property ContactEMail() As String
         Get
            Return Me.mContactEMail
         End Get
      End Property
#End Region



   End Class
End Namespace